如何用vba在excel单元格区域中输入函数公式? |
您所在的位置:网站首页 › excel 双引号中输入公式 › 如何用vba在excel单元格区域中输入函数公式? |
如何用vba在excel单元格区域中输入函数公式?
2019年2月27日
作者:水星Excel
12,412 次浏览
暂无评论
在excel中,我们可以在单元格中输入各种函数公式。 比如,我们可以在A4单元格中输入公式 =SUM(A1:A3)计算A1:A3单元格区域的和。 如果要在vba中实现输入上述的函数公式,可以直接将上述公式作为字符串赋值给Range对象的Formula属性,代码如下: Sub QQ1722187970() Dim oWK As Worksheet Dim oRng As Range Set oWK = Excel.ActiveSheet With oWK Set oRng = .Range("a4") With oRng .Formula = "=SUM(A1:A3)" End With End With End Sub上述函数公式属于最简单的函数公式,对于复杂的函数公式,往往带有多个函数的嵌套,以及用双引号括起来的字符串。 比如要在A4单元格中输入如下的函数公式: =COUNTIF(A1:A3,"a")对于函数公式内部带有双引号的,在用vba将公式填入单元格内时,需要将双引号再对应的加上双引号,如下所示: Sub QQ1722187970() Dim oWK As Worksheet Dim oRng As Range Set oWK = Excel.ActiveSheet Dim sFormula As String '双引号外再套双引号 sFormula = "=COUNTIF(A1:A3,""a"")" With oWK Set oRng = .Range("a4") With oRng .Formula = sFormula End With End With End Sub除了使用Range对象的Formula属性,在用录制宏录制VBA代码时,可以看到录制宏使用的Range对象的FormulaR1C1属性输入函数公式。FormulaR1C1属性的好处就是它使用的是相对引用的形式输入函数公式,不用去关注具体的单元格区域的位置。 其它相关文章推荐:excel vba Range对象的Characters属性无效的解决办法如何用vba取消工作表中所有行列的隐藏?如何用vba返回多个单元格区域的联合区域?如何用vba将excel单元格区域的内容转化为图片?如何用vba在word文档的末尾或者开头插入内容?如何在vba中将单元格的文本地址转换为range对象? 分类 : EXCEL VBA , VBA 标签 : Formula , FormulaR1C1 , 函数公式 声明: 本站文章均属原创,未经作者同意必须保留此段声明,且在文章页面明显位置给出原文链接,否则视为侵权。如果想要每天都收到本站的技术文章推送,可以微信搜索公众号:水星Excel或者Excel_Office关注。其它事宜请加QQ:1722187970 或微信号:xycgenius 联系。 |
今日新闻 |
推荐新闻 |
CopyRight 2018-2019 办公设备维修网 版权所有 豫ICP备15022753号-3 |